home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Ghostwriter 1.1 germ d1.adf / Suchsystem / Suchsystem.amosSourceCode
AMOS Source Code  |  1992-01-05  |  21KB  |  578 lines
  1. Set Buffer 18
  2. Break Off 
  3. Global ST$,Y$
  4. 0 EBENE=1
  5. 1 Dim E1$(9),E2$(63),E3$(285),TYP$(4),ANZ(9,1)
  6. 2 Dim SS(63,1),TY(285),KOM(285),M$(285)
  7. 3 For X=0 To 4
  8. 4 Read TYP$(X) : Next 
  9. 5 Rem daten.einlesen 
  10. 6 For X=0 To 9
  11.    7 Read E1$(X),ANZ(X,0),ANZ(X,1)
  12. 8 Next 
  13. 9 For X=0 To 62
  14.    10 Read E2$(X),SS(X,0),SS(X,1)
  15. 11 Next 
  16. 12 For X=0 To 285
  17.    13 Read E3$(X),TY(X),KOM(X)
  18. 14 Next 
  19. 30 Rem datas.allgemein
  20. 31 Data "Brief","Checkliste","Baustein","Lernhilfe","Database"
  21. 32 Rem datas.ebene1 
  22. 33 Data "Familie             ",0,17
  23. 34 Data "Schule              ",18,25
  24. 35 Data "Beruf               ",26,28
  25. 36 Data "Hobby               ",29,30
  26. 37 Data "Denken              ",31,32
  27. 38 Data "Schreibarbeit       ",33,38
  28. 39 Data "Zeitplansystem      ",39,40
  29. 40 Data "Gesch�ft-B�ro       ",41,49
  30. 41 Data "Anzeigen            ",50,54
  31. 42 Data "Kaufvertr�ge        ",55,62
  32. 43 Rem datas.ebene2 
  33. 44 Data "Festbriefe          ",1,10
  34. 45 Data "Einladungen         ",11,17
  35. 46 Data "Danksagungen        ",18,21
  36. 47 Data "Beileid             ",22,24
  37. 48 Data "Haushalt            ",25,28
  38. 49 Data "Urlaub              ",29,35
  39. 50 Data "Auto                ",36,37
  40. 51 Data "Umzug               ",38,49
  41. 52 Data "Geld                ",50,58
  42. 53 Data "Post                ",59,60
  43. 54 Data "Finanzamt           ",61,63
  44. 55 Data "Versicherungen      ",64,73
  45. 56 Data "Gericht             ",74,80
  46. 57 Data "Bundeswehr          ",81,81
  47. 58 Data "Beschwerde          ",82,83
  48. 59 Data "Briefeschreiben     ",84,86
  49. 60 Data "Zeitschriften       ",87,90
  50. 61 Data "Gesundheit          ",91,120
  51. 62 Rem ---------------------
  52. 63 Data "Lernvorbereitung    ",127,128
  53. 64 Data "Autonomes Lernen    ",129,129
  54. 65 Data "Mind-Maps           ",130,130
  55. 66 Data "Database            ",131,151
  56. 67 Data "Fachwissen          ",152,157
  57. 68 Data "Sonstiges           ",158,159
  58. 69 Data "Rechtschreiben      ",160,162
  59. 70 Data "Clubzeitschrift     ",163,163
  60. 71 Rem ---------------------
  61. 72 Data "Bewerbungen         ",164,167
  62. 73 Data "Inserate            ",168,169
  63. 74 Data "Strategie           ",170,172
  64. 75 Rem ---------------------
  65. 76 Data "Allgemein           ",173,177
  66. 77 Data "Computer            ",178,182
  67. 78 Rem ---------------------
  68. 79 Data "6 Farben-Denken     ",187,192
  69. 80 Data "Kreativtechniken    ",193,199
  70. 81 Rem ---------------------
  71. 82 Data "Clustern            ",200,201
  72. 83 Data "Buchkonzept         ",202,207
  73. 84 Data "Zitate              ",208,209
  74. 85 Data "Nachrichten         ",210,210
  75. 86 Data "Wor�ber schreiben ? ",211,211
  76. 87 Data "Manuskript-Verkauf  ",212,212
  77. 88 Rem ---------------------
  78. 89 Data "Zeitplanung         ",215,224
  79. 90 Data "Energie             ",225,225
  80. 91 Rem ---------------------
  81. 92 Data "Finanzamt           ",226,226
  82. 93 Data "B�romaterial        ",227,228
  83. 94 Data "Angebote            ",229,235
  84. 95 Data "Mahnwesen           ",236,240
  85. 96 Data "Pressemitteilung    ",241,241
  86. 97 Data "Sonstiges           ",242,251
  87. 98 Data "Fertige Briefe      ",252,255
  88. 99 Data "Englische Briefe    ",256,260
  89. 100 Data "Reden               ",261,261
  90. 101 Rem ---------------------
  91. 102 Data "Fachwissen          ",263,263
  92. 103 Data "Headline            ",264,264
  93. 104 Data "Text                ",265,265
  94. 105 Data "Bausteine           ",266,278
  95. 106 Data "Anzeigenauftr�ge    ",268,269
  96. 107 Rem ---------------------
  97. 108 Data "Auto                ",279,279
  98. 109 Data "Sache               ",280,280
  99. 110 Data "Angebot             ",281,281
  100. 111 Data "R�cktritt           ",282,282
  101. 112 Data "Anfrage             ",283,283
  102. 113 Data "Kostenvoranschlag   ",284,284
  103. 114 Data "Auftragserteilung   ",285,285
  104. 115 Data "Auftragsbest�tigung ",286,286
  105. 116 Rem datas.ebene3 
  106. 117 Data "Weihnachten         ",0,1
  107. 118 Data "Neujahr             ",0,1
  108. 119 Data "Ostern              ",0,1
  109. 120 Data "Geburtstag          ",0,1
  110. 121 Data "Geburt              ",0,1
  111. 122 Data "Kommunion           ",0,1
  112. 123 Data "Verlobung-Hochz     ",0,1
  113. 124 Data "Silberne Hochze     ",0,1
  114. 125 Data "Pr�fung             ",0,1
  115. 126 Data "Aus dem Urlaub      ",0,1
  116. 127 Data "Feier               ",0,2
  117. 128 Data "Konfirmation        ",0,2
  118. 129 Data "Sivesterfeier       ",0,2
  119. 130 Data "Kein Eintrag        ",0,2
  120. 131 Data "Silberhochzeit      ",0,2
  121. 132 Data "Einladung annehmen  ",0,2
  122. 133 Data "Einladung absagen   ",0,2
  123. 134 Data "f�r Einladung       ",0,3
  124. 135 Data "f�r Hochzeitstag    ",0,3
  125. 136 Data "an Geburtstag       ",0,3
  126. 137 Data "an Arzt             ",0,3
  127. 138 Data "Beileidsbrief       ",0,4
  128. 139 Data "Beileid beantwort.  ",0,4
  129. 140 Data "Zuspruch            ",0,4
  130. 141 Data "Einkaufscheckliste  ",1,5
  131. 142 Data "Hausarbeitscheckl.  ",1,5
  132. 143 Data "Apothekecheckliste  ",1,5
  133. 144 Data "Videoverleih        ",0,5
  134. 145 Data "Ausflugcheckliste   ",1,6
  135. 146 Data "Urlaubscheckliste   ",1,6
  136. 147 Data "Gartenpartycheckl.  ",1,6
  137. 148 Data "Prospekte anfordern ",0,6
  138. 149 Data "Reise buchen        ",0,6
  139. 150 Data "Reise absagen       ",0,6
  140. 151 Data "Hotellreservierung  ",0,6
  141. 152 Data "KFZ-Checkliste      ",1,7
  142. 153 Data "Pannencheckliste    ",1,7
  143. 154 Data "Umzugscheckliste    ",1,8
  144. 155 Data "Anschrifts�nderung  ",0,8
  145. 156 Data "Wohnung k�ndigen    ",0,8
  146. 157 Data "Umzugsmeldung       ",0,8
  147. 158 Data "Zeitschriften       ",0,8
  148. 159 Data "Stadtwerke          ",0,8
  149. 160 Data "Parkgenehmigung     ",0,8
  150. 161 Data "Bundeswehr          ",0,8
  151. 162 Data "Post nachsenden     ",0,8
  152. 163 Data "Telefon             ",0,8
  153. 164 Data "Schule abmelden     ",0,8
  154. 165 Data "Schule anmelden     ",0,8
  155. 166 Data "Verm�gen            ",1,9
  156. 167 Data "Vollmacht           ",0,9
  157. 168 Data "Garantiefall        ",0,9
  158. 169 Data "Daueraftrag         ",0,9
  159. 170 Data "Scheck sperren      ",0,9
  160. 171 Data "Selbstauskunft      ",0,9
  161. 172 Data "Auto ummelden       ",0,9
  162. 173 Data "Bu�geld Einspruch   ",0,9
  163. 174 Data "Brief an Bank       ",0,9
  164. 175 Data "Nachsendeantrag     ",0,10
  165. 176 Data "Paket nicht einget. ",0,10
  166. 177 Data "Aufschub EkSt       ",0,11
  167. 178 Data "Stundung EkSt       ",0,11
  168. 179 Data "Steuerbescheid      ",0,11
  169. 180 Data "Stiftung Warentest  ",0,12
  170. 181 Data "Bitte um Angebot    ",0,12
  171. 182 Data "Bitte um Beratung   ",0,12
  172. 183 Data "Ruhenlassen         ",0,12
  173. 184 Data "Schadensanzeige     ",0,12
  174. 185 Data "Schandsanz.Auto     ",0,12
  175. 186 Data "Unfallmeld.Auto     ",0,12
  176. 187 Data "�nder. Lebensv.     ",0,12
  177. 188 Data "K�ndigung           ",0,12
  178. 189 Data "Hypothek            ",0,12
  179. 190 Data "Widerspr.Mahnbesch. ",0,14
  180. 191 Data "Widerspr.Vollstreck.",0,14
  181. 192 Data "Beleidigungsklage   ",0,14
  182. 193 Data "Zeugenaussage       ",0,14
  183. 194 Data "Zeugen benennen     ",0,14
  184. 195 Data "Einspruch           ",0,14
  185. 196 Data "Anz.wg.Ruhest�rung  ",0,14
  186. 197 Data "R�ckstellung        ",0,15
  187. 198 Data "Beschwerdebrief     ",0,16
  188. 199 Data "Entscheidung        ",0,16
  189. 200 Data "Der sch�ne Brief 1  ",1,17
  190. 201 Data "Der sch�ne Brief 2  ",1,17
  191. 202 Data "Libesbrief          ",1,17
  192. 203 Data "Zeitschrift         ",0,18
  193. 204 Data "Abonieren           ",0,18
  194. 205 Data "Mediaunterlagen     ",0,18
  195. 206 Data "Artikel einreichen  ",0,18
  196. 207 Data "Deutsche Gesellsch. ",0,19
  197. 208 Data "AOK                 ",0,19
  198. 209 Data "BEK                 ",0,19
  199. 210 Data "Diabetes 1          ",0,19
  200. 211 Data "Diabetes 2          ",0,19
  201. 212 Data "Schutzimpfung       ",0,19
  202. 213 Data "Venenleiden         ",0,19
  203. 214 Data "Migr�ne             ",0,19
  204. 215 Data "Hochdruck           ",0,19
  205. 216 Data "Astthma             ",0,19
  206. 217 Data "Niedriger Blutdruck ",0,19
  207. 218 Data "Herzinsuffizienz    ",0,19
  208. 219 Data "1200 Kal.Plan       ",0,19
  209. 220 Data "Di�trechner         ",0,19
  210. 221 Data "Angina Pektoris     ",0,19
  211. 222 Data "Schrittmacher       ",0,19
  212. 223 Data "Fahrplan Nichtrauch.",0,19
  213. 224 Data "AIDS-Infos          ",0,19
  214. 225 Data "Das Baby            ",0,19
  215. 226 Data "AIDS 2              ",0,19
  216. 227 Data "Hom�opathie         ",0,19
  217. 228 Data "Kein Eintrag        ",0,0
  218. 229 Data "Neurodermites       ",0,19
  219. 230 Data "Alle Schnupfen      ",0,19
  220. 231 Data "Diabethes-Auswei�   ",0,19
  221. 232 Data "Heuschnupfen        ",0,19
  222. 233 Data "Allergien Ratgeber  ",0,19
  223. 234 Data "Bluthochdruck       ",0,19
  224. 235 Data "Ratgeber Allerg     ",0,19
  225. 236 Data "Magen-Darm          ",0,19
  226. 237 Data "Di�tvorschrift      ",0,19
  227. 238 Data "Gehirn              ",0,19
  228. 239 Data "Rheuma              ",0,19
  229. 240 Data "Herz                ",0,19
  230. 241 Data "Herzinfarkt         ",0,19
  231. 242 Data "Atmen               ",0,19
  232. 243 Data "Lernvorbereitun     ",1,20
  233. 244 Data "Vokabelpauken       ",1,20
  234. 245 Data "W�rter erkl�ren     ",1,21
  235. 246 Data "Mind-Maps           ",4,23
  236. 247 Data "Wortarten           ",4,23
  237. 248 Data "Das Verb            ",4,23
  238. 249 Data "Substantiv          ",4,23
  239. 250 Data "Adjektiv            ",4,23
  240. 251 Data "Satzlehre           ",4,23
  241. 252 Data "Die Zeiten          ",4,23
  242. 253 Data "3 Form Dichtung     ",4,24
  243. 254 Data "Aufsatz             ",4,25
  244. 255 Data "Erz�hlung           ",4,25
  245. 256 Data "Schilderung         ",4,25
  246. 257 Data "Beschreibung        ",4,25
  247. 258 Data "Bericht             ",4,25
  248. 259 Data "Inhaltsangabe       ",4,25
  249. 260 Data "Protokoll           ",4,25
  250. 261 Data "Er�rterung          ",4,25
  251. 262 Data "Argument            ",4,25
  252. 263 Data "Quellenangabe       ",4,25
  253. 264 Data "Zitat               ",4,25
  254. 265 Data "Kurzgeschichte      ",4,25
  255. 266 Data "Charakteristik      ",4,25
  256. 267 Data "Interpretaion       ",4,25
  257. 268 Data "Bruchrechnung       ",4,26
  258. 269 Data "Mathematik          ",4,26
  259. 270 Data "Politik             ",4,26
  260. 271 Data "Wirtschaft          ",4,26
  261. 272 Data "Psychologie         ",4,26
  262. 273 Data "Technik             ",4,26
  263. 274 Data "Entschuldigung      ",0,27
  264. 275 Data "Zeugniss Angest     ",0,27
  265. 276 Data "Schwere W�rter      ",3,28
  266. 277 Data "Gross-klein         ",3,28
  267. 278 Data "Kommasetzung        ",3,28
  268. 279 Data "Clubzeitschrift     ",1,29
  269. 280 Data "K�ndigung           ",0,30
  270. 281 Data "Bewerbung           ",0,30
  271. 282 Data "Tab.Lebenslauf      ",0,30
  272. 283 Data "Lebenslauf          ",0,30
  273. 284 Data "Flie�text           ",0,31
  274. 285 Data "Gestalltung         ",0,31
  275. 286 Data "Arbeitsplatz        ",1,32
  276. 287 Data "Brief EKS           ",0,32
  277. 288 Data "Brief FAZ           ",0,32
  278. 289 Data "Kein Eintrag        ",0,0
  279. 290 Data "Astronomie          ",4,33
  280. 291 Data "Mikroskopie         ",4,33
  281. 292 Data "Elektronik          ",4,33
  282. 293 Data "Amateurfunk         ",4,33
  283. 294 Data "EDV-Grundbegriffe   ",4,34
  284. 295 Data "C64+Floppy          ",4,34
  285. 296 Data "C64+Drucker         ",4,34
  286. 297 Data "C64+Peek&Poke       ",4,34
  287. 298 Data "C64+Tips&Tricks     ",4,34
  288. 299 Data "Kein Eintrag        ",0,0
  289. 300 Data "Kein Eintrag        ",0,0
  290. 301 Data "Kein Eintrag        ",0,0
  291. 302 Data "Kein Eintrag        ",0,0
  292. 303 Data "wei�                ",1,36
  293. 304 Data "rot                 ",1,36
  294. 305 Data "schwarz             ",1,36
  295. 306 Data "gelb                ",1,36
  296. 307 Data "gr�n                ",1,36
  297. 308 Data "Synthese            ",1,36
  298. 309 Data "Brainstorming       ",1,37
  299. 310 Data "Laterales Denken    ",1,37
  300. 311 Data "Analogiefindung     ",1,37
  301. 312 Data "Kein Eintrag        ",0,0
  302. 313 Data "Kein Eintrag        ",0,0
  303. 314 Data "Kein Eintrag        ",0,0
  304. 315 Data "Kein Eintrag        ",0,0
  305. 316 Data "Vorbereitung        ",1,38
  306. 317 Data "Clustern            ",1,38
  307. 318 Data "Buchger�st          ",1,39
  308. 319 Data "Headline            ",1,39
  309. 320 Data "Beispieldiagramm    ",1,39
  310. 321 Data "Buchanfang          ",1,39
  311. 322 Data "Buchende            ",1,39
  312. 323 Data "Absatzanfang        ",1,39
  313. 324 Data "Zitate 1            ",1,40
  314. 325 Data "Zitate 2            ",1,40
  315. 326 Data "Nachricht           ",1,41
  316. 327 Data "Wor�ber schreiben   ",1,42
  317. 328 Data "Verkauf von Manusk. ",0,43
  318. 329 Data "Kein Eintrag        ",1,44
  319. 330 Data "Kein Eintrag        ",1,44
  320. 331 Data "Ziele               ",1,44
  321. 332 Data "Jahresplan          ",1,44
  322. 333 Data "Monatsplan          ",1,44
  323. 334 Data "Wochenplan          ",1,44
  324. 335 Data "Rat. der Routine    ",1,44
  325. 336 Data "Aktivit�ten-Plan    ",1,44
  326. 337 Data "Tagescheckliste     ",1,44
  327. 338 Data "Tagesplan           ",1,44
  328. 339 Data "Kein Eintrag        ",0,0
  329. 340 Data "Kein Eintrag        ",0,0
  330. 341 Data "Energiegewinn       ",1,45
  331. 342 Data "Finanzamt           ",0,46
  332. 343 Data "Ant.Lieferant       ",0,46
  333. 344 Data "B�romaterial        ",1,46
  334. 345 Data "Angebot machen      ",0,46
  335. 346 Data "Auftragsbest�tigung ",0,46
  336. 347 Data "Schadensersatz      ",0,46
  337. 348 Data "Annahmeverzug       ",0,46
  338. 349 Data "Angestellte         ",0,46
  339. 350 Data "K�ndigung           ",0,46
  340. 351 Data "Auftr.stornieren    ",0,46
  341. 352 Data "Mahnungen 1         ",0,46
  342. 353 Data "Mahnungen 2         ",0,46
  343. 354 Data "Mahnungen 3         ",0,46
  344. 355 Data "Mahnungen 4         ",0,46
  345. 356 Data "Kein Eintrag        ",0,0
  346. 357 Data "Pressemitteilung    ",0,47
  347. 358 Data "Reklamationsbearb.  ",0,47
  348. 359 Data "Rechnung            ",0,47
  349. 360 Data "Lieferschein        ",0,47
  350. 361 Data "Nachlieferung       ",0,47
  351. 362 Data "Gutschrift          ",0,47
  352. 363 Data "Quittung            ",0,47
  353. 364 Data "Gesch.int.Mitteilung",0,47
  354. 365 Data "Innerbetr.Rundschr. ",0,47
  355. 366 Data "Protokoll           ",0,47
  356. 367 Data "Pendelbrief         ",0,47
  357. 368 Data "Zentralmarkt        ",0,47
  358. 369 Data "Handelsmagazin      ",0,48
  359. 370 Data "Bundesnachricht     ",0,48
  360. 371 Data "Herstelleradressen  ",0,48
  361. 372 Data "Katalog englisch    ",0,48
  362. 373 Data "Bestellung englisch ",0,48
  363. 374 Data "Wo bleibt...        ",0,49
  364. 375 Data "Frage englisch      ",0,49
  365. 376 Data "Zahlung-Transport   ",0,49
  366. 377 Data "Rede                ",1,50
  367. 378 Data "Kein Eintrag        ",0,0
  368. 379 Data "Fachw.Werbung       ",4,51
  369. 380 Data "Form von Headline   ",1,51
  370. 381 Data "Der Text            ",1,51
  371. 382 Data "Textbaustein kaufen ",2,51
  372. 383 Data "Textbaustein verk.  ",2,51
  373. 384 Data "Anzeigena. Flie�text",0,51
  374. 385 Data "Anzeigena. Gestallt ",0,51
  375. 386 Data "B�roverk�ufe        ",2,52
  376. 387 Data "Versicherungen      ",2,52
  377. 388 Data "Immobilien          ",2,52
  378. 389 Data "Baubranche          ",2,52
  379. 390 Data "M�bel u.Einrichtung ",2,52
  380. 391 Data "Radio TV Video      ",2,52
  381. 392 Data "Film Foto Optik     ",2,52
  382. 393 Data "Gastronomie         ",2,52
  383. 394 Data "Nahrung Genu�mittel ",2,52
  384. 395 Data "Auto                ",0,53
  385. 396 Data "Verschiedenes       ",0,53
  386. 397 Data "Angebot             ",0,53
  387. 398 Data "R�cktritt           ",0,53
  388. 399 Data "Anfrage             ",0,53
  389. 400 Data "Kostenvoranschlag   ",0,54
  390. 401 Data "Auftrag erteilen    ",0,54
  391. 402 Data "Auftrag best�tigen  ",0,54
  392. Rem --- Hauptprogramm ---
  393. Screen Open 1,640,256,8,Hires
  394. Limit Mouse 0,0 To 640,300
  395. Flash Off 
  396. MARK0:
  397. Hide : Load Iff "Ghostwriter:mask1.1" : Show 
  398. RemPalette 0,0,0,0,0,0,0,0 
  399. RemFade 1,0,$FFF,$B00,80,$24C,$EB0,$555,$888 
  400. MARK1:
  401. While Mouse Key=0 : Wend 
  402. If X Mouse>180 and X Mouse<258 and Y Mouse>158 and Y Mouse<198 Then Goto VERZWEIGUNGS_SUCHE
  403. If X Mouse>178 and X Mouse<257 and Y Mouse>231 and Y Mouse<271 Then Goto AUSGANG
  404. If X Mouse>325 and X Mouse<405 and Y Mouse>158 and Y Mouse<200 Then Goto STICHWORT_SUCHE
  405. If X Mouse>326 and X Mouse<405 and Y Mouse>231 and Y Mouse<271 Then Goto GHOSTWRITER_LADEN
  406. Goto MARK1
  407. VERZWEIGUNGS_SUCHE:
  408. Fade 2 : Wait 30 : Paper 0 : Cls 
  409. Hide : Screen Hide : Load Iff "Ghostwriter:mask1.3" : Screen Show : Show : Rem Palette 0,0,0,0,0,0,0,0 : Screen Show : Fade 3,0,$FFF,$B00,$80,$24C,$EB0,$555,$888 : Show  
  410. Wait Vbl : Wind Open 1,65,5,26,31 : Paper 7 : Pen 0 : Clw : Curs Off 
  411. Gosub NAMEN_ANZEIGEN_1
  412. MARK5:
  413. While Mouse Key=0 : Wend 
  414. If X Mouse>285 and X Mouse<314 and Y Mouse>131 and Y Mouse<199 Then Goto RAUF_SCROLLEN
  415. If X Mouse>285 and X Mouse<314 and Y Mouse>207 and Y Mouse<276 Then Goto UNTEN_SCROLLEN
  416. If X Mouse>322 and X Mouse<367 and Y Mouse>131 and Y Mouse<276 Then Goto OK_KNOPF
  417. If X Mouse>376 and X Mouse<420 and Y Mouse>131 and Y Mouse<276 Then Fade 2 : Wait 30 : Cls : Curs On : Goto MARK0
  418. Goto MARK5
  419. RAUF_SCROLLEN:
  420. If EBENE=1 and POS=0 Then Goto MARK5
  421. If EBENE=2 Then Goto RAUF_SCROLLEN_2
  422. If EBENE=3 Then Goto RAUF_SCROLLEN_3
  423. Cup : Wait Vbl : Print "   ";E1$(POS);"   ";
  424. Inverse On : Cup : Cup : Dec POS : Wait Vbl : Print "   ";E1$(POS);"   "; : Inverse Off 
  425. Wait 4 : Goto MARK5
  426. UNTEN_SCROLLEN:
  427. If EBENE=1 and POS=9 Then Goto MARK5
  428. If EBENE=2 Then Goto UNTEN_SCROLLEN_2
  429. If EBENE=3 Then Goto UNTEN_SCROLLEN_3
  430. Cup : Wait Vbl : Print "   ";E1$(POS);"   ";
  431. Inverse On : Inc POS : Wait Vbl : Print "   ";E1$(POS);"   "; : Inverse Off 
  432. Wait 4 : Goto MARK5
  433. RAUF_SCROLLEN_2:
  434. If POS=ANZ(SP,0) Then Goto MARK5
  435. Cup : Wait Vbl : Print "   ";E2$(POS);"   ";
  436. Inverse On : Cup : Cup : Dec POS : Wait Vbl : Print "   ";E2$(POS);"   "; : Inverse Off 
  437. Wait 4 : Goto MARK5
  438. UNTEN_SCROLLEN_2:
  439. If POS=ANZ(SP,1) Then Goto MARK5
  440. Cup : Wait Vbl : Print "   ";E2$(POS);"   ";
  441. Inverse On : Inc POS : Wait Vbl : Print "   ";E2$(POS);"   "; : Inverse Off 
  442. Wait 4 : Goto MARK5
  443. RAUF_SCROLLEN_3:
  444. If POS=SS(SP,0)-1 Then Goto MARK5
  445. Cup : Wait Vbl : Print "   ";E3$(POS);"   ";
  446. Inverse On : Cup : Cup : Dec POS : Wait Vbl : Print "   ";E3$(POS);"   "; : Inverse Off 
  447. Wait 4 : Goto MARK5
  448. UNTEN_SCROLLEN_3:
  449. If POS=SS(SP,1)-1 Then Goto MARK5
  450. Cup : Wait Vbl : Print "   ";E3$(POS);"   ";
  451. Inverse On : Inc POS : Wait Vbl : Print "   ";E3$(POS);"   "; : Inverse Off 
  452. Wait 4 : Goto MARK5
  453. OK_KNOPF:
  454. If EBENE=1 Then Wait 5 : Gosub NAMEN_ANZEIGEN_2 : Goto MARK5
  455. If EBENE=2 Then Wait 5 : Gosub NAMEN_ANZEIGEN_3 : Goto MARK5
  456. If EBENE=3 Then T=POS : Goto MARK2
  457. NAMEN_ANZEIGEN_1:
  458. Clw : EBENE=1 : POS=0
  459. Locate 0,0
  460. For T=0 To 9
  461.    Print "   ";E1$(T);"   ";
  462. Next 
  463. Locate 0,0
  464. Inverse On 
  465. Print "   ";E1$(0);"   ";
  466. Inverse Off 
  467. Return 
  468. NAMEN_ANZEIGEN_2:
  469. Clw : EBENE=2
  470. Locate 0,0 : SP=POS : AN=ANZ(SP,0) : EN=ANZ(SP,1)
  471. For T=AN To EN
  472.    Print "   ";E2$(T);"   ";
  473. Next 
  474. Locate 0,0
  475. Inverse On 
  476. Print "   ";E2$(AN);"   ";
  477. Inverse Off : POS=AN
  478. Return 
  479. NAMEN_ANZEIGEN_3:
  480. Clw : EBENE=3
  481. Locate 0,0 : SP=POS : AN=SS(SP,0)-1 : EN=SS(SP,1)-1
  482. For T=AN To EN
  483.    Print "   ";E3$(T);"   ";
  484. Next 
  485. Locate 0,0
  486. Inverse On 
  487. Print "   ";E3$(AN);"   ";
  488. Inverse Off : POS=AN
  489. Return 
  490. AUSGANG:
  491. Fade 2 : Wait 30 : Cls 
  492. End 
  493. STICHWORT_SUCHE:
  494. Fade 2 : Wait 30 : Paper 0 : Cls 
  495. Hide : Screen Hide : Load Iff "Ghostwriter:mask1.2" : Screen Show : Show : RemPalette 0,0,0,0,0,0,0,0 : Screen Show : Fade 3,0,$FFF,$B00,80,$24C,$EB0,$555,$888 : Show  
  496. Wait Vbl : Wind Open 1,65,115,28,1 : Paper 7 : Pen 0 : Clw 
  497. HOLEN[0,0,25] : Wind Close : If ST$="" Then Fade 2 : Wait 30 : Cls : Goto MARK0
  498. Wait Vbl : Wind Open 1,65,202,28,1 : Paper 7 : Pen 1 : Clw : Curs Off 
  499. Wait Vbl : Print "  --- Suche in Ebene 3 ---";
  500. For T=0 To 285
  501.    If Lower$(ST$)=Lower$(Left$(E3$(T),Len(ST$))) Then Bell : Wait 30 : Goto MARK2
  502. Next 
  503. Wait Vbl : Print : Pen 2 : Print " Leider nichts gefunden !!!"; : Bell : Wait 150 : Fade 2 : Wait 30 : Cls : Goto MARK0
  504. MARK2:
  505. Wind Close 
  506. Hide : Fade 2 : Wait 30 : Screen Hide : Cls : Load Iff "Ghostwriter:mask1.4" : Screen Show : Show : Rem Palette 0,0,0,0,0,0,0,0 : Screen Show : Fade 3,$0,$FFF,$B00,$80,$24C,$EB0,$555,$888 : Show 
  507. Wind Open 1,350,117,29,1 : Paper 7 : Pen 0 : Clw 
  508. Print "  ";E3$(T);
  509. Wind Open 2,350,147,10,1 : Paper 7 : Pen 0 : Clw 
  510. Print Left$(TYP$(TY(T)),9);
  511. Wind Open 3,395,176,5,1 : Paper 7 : Pen 0 : Clw 
  512. Print KOM(T);
  513. Wind Open 4,350,201,7,1 : Paper 7 : Pen 0 : Clw 
  514. Curs Off : Y$=Str$(T+1)
  515. If Left$(Y$,1)=" " Then Y$=Right$(Y$,Len(Y$)-1)
  516. MARK3: If Len(Y$)<3 Then Y$="0"+Y$ : Goto MARK3
  517. Print "  ";Y$;
  518. Do 
  519.    While Mouse Key=0 : Wend 
  520.    If X Mouse>161 and X Mouse<420 and Y Mouse>275 and Y Mouse<288 Then Fade 2 : Wait 30 : Cls : Goto MARK0
  521. Loop 
  522. GHOSTWRITER_LADEN:
  523. S_DATEN_SCHREIBEN
  524. Run "Ghostwriter:Autoexec.amos"
  525. Rem -------------------- run "Ghostwriter:ghostwriter_500" 
  526. Rem -------------------- Get Cblock 1,370,170,250,80 
  527. Rem -------------------- Wind Open 1,370,170,25,10,1 
  528. Rem -------------------- Paper 0 : Pen 1 : Clw 
  529. Rem -------------------- Centre "Leider ist der" : Cmove ,1
  530. Rem -------------------- Centre "Aufruf des Textsystems" 
  531. Rem -------------------- Centre "nur von der Workbench" : Cmove ,1 
  532. Rem -------------------- Centre "aus m�glich !" : Cmove ,1 
  533. Rem -------------------- Centre "Verlassen Sie also" : Cmove ,1
  534. Rem -------------------- Centre "das Suchsystem und" : Cmove ,1
  535. Rem -------------------- Centre "starten Ghostwriter" : Cmove ,1 
  536. Rem -------------------- Centre "dort neu !" 
  537. Rem -------------------- Repeat  
  538. Rem -------------------- Until Mouse Key=1 
  539. Rem -------------------- Wait Vbl : Wind Close 
  540. Rem -------------------- Wait Vbl : Put Cblock 1,370,170 
  541. Rem -------------------- Goto MARK1
  542. Procedure HOLEN[X,Y,Z]
  543.    Curs Pen 3
  544.    Locate X,Y : Curs On 
  545.    MI=X : MX=X+Z : ST$=""
  546.    WARTEN:
  547.    While A$=""
  548.       A$=Inkey$
  549.    Wend 
  550.    SC=Scancode
  551.    If SC>0 and SC<11 Then Goto WEITER
  552.    If SC>15 and SC<55 Then Goto WEITER
  553.    If SC>28 and SC<32 Then Goto WEITER
  554.    If SC>44 and SC<48 Then Goto WEITER
  555.    If SC>60 and SC<64 Then Goto WEITER
  556.    If SC=57 or SC=60 or SC=15 Then Goto WEITER
  557.    If SC=67 or SC=68 Then Curs Off : Pop Proc
  558.    If SC=65 Then Goto WEG
  559.    Clear Key : A$="" : Goto WARTEN
  560.    WEITER:
  561.    If X>MX Then Goto WARTEN
  562.    Print A$; : Inc X
  563.    ST$=ST$+A$
  564.    Goto WARTEN
  565.    WEG:
  566.    If X=MI Then Goto WARTEN
  567.    Cleft : Print " "; : Cleft 
  568.    ST$=Left$(ST$,Len(ST$)-1)
  569.    Dec X
  570.    Goto WARTEN
  571. End Proc
  572. Procedure S_DATEN_SCHREIBEN
  573.  F$="Ram:"
  574.  If Fast Free=0 Then F$="Ghostwriter:"
  575.  Open Out 1,F$+"s.dat"
  576.  Print #1,Y$
  577.  Close 1
  578. End Proc